home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / 3rd Parties / Services / VRToolworks / others.Dxr / 00024_Jump to View and Node.ls < prev    next >
Encoding:
Text File  |  1996-12-06  |  409 b   |  11 lines
  1. on mouseUp
  2.   global gPanoMovieID
  3.   if gPanoMovieID <> EMPTY then
  4.     set tCurrentNodeID to PanoMovie("Direct", gPanoMovieID, "Get", "nodeID")
  5.     if the text of cast "Node ID" <> tCurrentNodeID then
  6.       SetPanoNode(the text of cast "Node ID", 0)
  7.     end if
  8.   end if
  9.   SetPanoMovieView(the text of cast "HPanAngle", the text of cast "VPanAngle", the text of cast "ZoomAngle", the text of cast "Quality")
  10. end
  11.